home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / games / 1-l / canglera.dms / in.adf / Install < prev    next >
Encoding:
Text File  |  1978-01-02  |  2.2 KB  |  103 lines
  1. (welcome "This utility will update your Coarse Angler disk to the full unrestricted version. " "It will also install the game to your Hard Disk if you require.")
  2. (set @default-dest "")
  3. (set tmp @user-level)
  4. (user tmp)
  5. (set sc "Fishing1200.update")
  6. (set update_file
  7. (askbool
  8.     (prompt "Do you have an accelerated Amiga?")
  9.         (choices "No" "Yes")
  10.     (help "For those with a fast machine a slowed version will be installed.\nIf you find the game too slow, install again using the normal game.")
  11. ))
  12. (if (= update_file 1)
  13.     (set sc "CA-Update:Fishing.update")
  14. )
  15. (copyfiles
  16.     (source sc)
  17.     (dest "RAM:")
  18.     (newname "Fishing")
  19. )
  20. (copyfiles
  21.     (source "CA-Update:Name.update")
  22.     (dest "RAM:")
  23.     (newname "PLAYER.NAM")
  24. )
  25. (askdisk
  26.     (prompt "Please insert Coarse Angler disk \n in any drive")
  27.     (help "Do you really need help with this?")
  28.     (dest "CoarseAngler")
  29. )
  30. (copyfiles
  31.     (source "RAM:Fishing")
  32.     (dest "CoarseAngler:")
  33. )
  34. (copyfiles
  35.     (source "RAM:PLAYER.NAM")
  36.     (dest "CoarseAngler:Graphics/")
  37. )
  38. (delete "RAM:Fishing")
  39. (delete "RAM:PLAYER.NAM")
  40.  
  41.  
  42. (set question
  43. (askbool
  44.     (prompt "Do you wish to install the \n game to Hard Disk?")
  45.     (help "YES or NO?")
  46.     (choices "No" "Go Ahead")
  47. ))
  48.  
  49. (if (= question 1)
  50. (exit "Update Completed.")
  51. )
  52.  
  53. (set #which-disk
  54. (cat "In which partition should the game be installed?"
  55. ))
  56. (set #which-disk-help
  57. (cat "\nThis section lets you choose on which hard drive partition the "
  58.      "Game files will be installed. "
  59.      @askdir-help
  60. ))
  61.  
  62. (set target (askdir (prompt #which-disk)
  63.             (help #which-disk-help)
  64.             (default "WORK:")
  65.             (disk)
  66. ))
  67.  
  68. (askdisk (prompt "Please Insert Coarse Angler Disk \n in any drive.")
  69.         (help "Do you need help on this?")
  70.     (dest "CoarseAngler")
  71. )
  72.  
  73. (copyfiles
  74.     (source "CoarseAngler:Fishing")
  75.     (dest target)
  76.     (infos)
  77. )
  78. (copyfiles
  79.     (source "CoarseAngler:")
  80.     (dest target)
  81.     (pattern "Graphics")
  82. )
  83. (askdisk (prompt "Please insert PEGDATA Disk \n in any drive.")
  84.     (help "No help on this subject")
  85.     (dest "Pegdata")
  86. )
  87.  
  88. (copyfiles
  89.     (source "Pegdata:")
  90.     (dest target)
  91.     (all)
  92. )
  93.  
  94. (startup "CoarseAngler"
  95. (prompt "Some commands need to be \n added to your \n Startup Sequence")
  96.     (help @startup-help)
  97.     (command "assign PEGDATA: " target "\n")
  98. )
  99. (makeassign "PEGDATA" target)
  100.  
  101.  
  102. (exit)
  103.